home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Softdisk Supreme
/
Softdisk Supreme.iso
/
pc
/
DSK Files
/
0-49
/
SD015b.dsk
/
HELLO.bas
< prev
next >
Wrap
BASIC Source File
|
2003-06-12
|
2KB
|
40 lines
1 REM HELLO
10 D$ = CHR$(4)
30 TEXT : HOME : VTAB 1
32 HTAB 4: INVERSE : PRINT " ": NORMAL
35 HTAB 4: INVERSE : PRINT " WELCOME TO THE SOFTDISK HARVEST ": NORMAL
37 HTAB 4: INVERSE : PRINT " ": NORMAL
40 PRINT : PRINT : HTAB 6: PRINT "THIS PROGRAM IS NAMED HELLO.
50 PRINT : PRINT : HTAB 7: PRINT "IT IS PRELIMINARY TO ";: INVERSE : PRINT "MENU": NORMAL
90 PRINT : PRINT : HTAB 10: PRINT "1 = GETTING BACK TO ";: INVERSE : PRINT "MENU": NORMAL
100 PRINT : HTAB 10: PRINT "2 = ABOUT ";: INVERSE : PRINT "MENU": NORMAL
110 PRINT : HTAB 10: PRINT "3 = LET'S SEE THE ";: INVERSE : PRINT "MENU": NORMAL
112 VTAB 21: HTAB 10: PRINT "SOFTDISK MAGAZETTE"
114 HTAB 11: PRINT "3811 ST. VINCENT"
116 HTAB 8: PRINT "SHREVEPORT, LOUISIANA 71108"
120 VTAB 18: PRINT " WHICH ";: GET R$: PRINT R$
130 IF R$ = "1" GOTO 500
140 IF R$ = "2" GOTO 700
150 IF R$ = "3" THEN PRINT D$"RUN MENU"
160 GOTO 30
500 HOME : VTAB 2
510 INVERSE : PRINT "MENU";: NORMAL : PRINT " LEADS YOU INTO THE HARVEST PROGRAMS"
520 PRINT : PRINT "TO GET BACK TO ";: INVERSE : PRINT "MENU";: NORMAL : PRINT " AFTER ENTERING A"
530 PRINT : PRINT "HARVEST PROGRAM YOU SHOULD HIT RESET"
540 PRINT : PRINT "AND TYPE IN 'RUN MENU'"
550 PRINT : PRINT : PRINT "SOMETIMES A PROGRAM WILL LEAVE THINGS"
560 PRINT : PRINT "MESSED UP AND GIVE YOU AN OUT OF MEMORY"
570 PRINT : PRINT "ERROR."
580 PRINT : PRINT : PRINT "WHEN THAT HAPPENS YOU SHOULD REBOOT."
650 PRINT : PRINT : HTAB 12: INVERSE : PRINT "HIT SPACE BAR ";: GET R$: PRINT D$: GOTO 30
700 HOME : VTAB 2
710 HTAB 16: PRINT "ABOUT ";: INVERSE : PRINT "MENU": NORMAL
715 HTAB 16: PRINT "----- ----"
720 PRINT : PRINT : HTAB 15: PRINT "YOU CAN NOW"
725 PRINT : HTAB 12: PRINT "READ ABOUT HARVEST"
727 PRINT : HTAB 18: PRINT "AND"
730 PRINT : HTAB 14: PRINT "RUN PROGRAMS"
740 PRINT : HTAB 7: PRINT "FROM THIS SIDE OF THE DISK."
760 PRINT : PRINT : PRINT : PRINT : HTAB 3: PRINT "TELL US HOW YOU LIKE THE NEW ";: INVERSE : PRINT "MENU": NORMAL
770 PRINT
850 PRINT : HTAB 12: INVERSE : PRINT " HIT SPACE BAR ";: GET R$: PRINT D$: GOTO 30